home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t4.d64 / arrow+.c (.txt) next >
Commodore BASIC  |  2007-02-04  |  2KB  |  75 lines
  1. 0 REM "ARROW"
  2. 1 POKE54277,190
  3. 2 POKE54278,248
  4. 3 POKE54276,17
  5. 4 POKE53280,0
  6. 5 POKE53281,0
  7. 100 PRINT"[147] ARROW [146]    JIM BUTTERFIELD"
  8. 101 PRINT" 07/15/83 [146]    ADAPTED TO THE C-64
  9. 102 [153]" 07/15/83 WAIT    ADDED JOYSTICK OPTION
  10. 106 PRINT"                RICK CRONE
  11. 107 [153]"                111 GREENBRIAR LN.
  12. 108 PRINT"                JACKSON TN. 38305
  13. 109 [153]"                (901) 668-8958
  14. 110 PRINT
  15. 120 PRINT"GUIDE THE MOVING 'SNAKE' WITH KEYS:"
  16. 130 PRINT" 2(DOWN), 4(LEFT), 6(RIGHT), 8(UP)"
  17. 140 PRINT"DON'T HIT THE BOUNDARY (OR YOURSELF);"
  18. 150 PRINT"..TRY TO HIT THE BOXES FOR POINTS."
  19. 160 PRINT"YOU HAVE 60 SECONDS OF PLAY. GOOD LUCK!"
  20. 170 PRINT"      J JOYSTICK[146]       K KEYBOARD
  21. 180 [161]Z$:[139]Z$[178]""[137]180
  22. 181 [139]Z$[178]"J"[167]PC[178]1:[137]190:[143] PC IS PROCESS CODE FOR SUBROUTINE SELECTION
  23. 182 [139]Z$[178]"K"[167]PC[178]0:[137]190
  24. 183 [137]180
  25. 190 [134]P(255),D(3),V(8),H(8),T(8),R(8):K[178].1
  26. 200 D(0)[178]22:D(1)[178]60:D(2)[178]62:D(3)[178]30
  27. 210 T9[178]1024:T6[178]3599:[153][199](14):[153][199](8)
  28. 220 M1[178]54296:M2[178]54273:M3[178]52272
  29. 230 [151]53281,13:[153]"RETURNLOAD   SCORE: 0":[153]"A":[151]53281,80
  30. 240 [129]J[178]0[164]81:[139][194](T9[170]J)[179][177]1[167][130]J
  31. 250 L[178]J:[129]J[178]T9[170]L[164]T9[170]2[172]L[171]1:[151]J,81:[151]J[170]23[172]L,81:[130]J
  32. 260 [129]J[178]T9[170]2[172]L[164]T9[170]24[172]L[169]L:[151]J,81:[151]J[170]L[171]1,81:[130]
  33. 270 V[178]5:H[178]5:V1[178]0:H1[178]1:P2[178]10:D1[178]2
  34. 280 TI$[178]"000000"
  35. 290 [153]"";[201](TI$,2):[139]TI[177]T6[137]620
  36. 300 [139]PC[178]0[167][161]Z$:[139]Z$[178]""[137]330
  37. 301 [139]PC[178]0[167]310
  38. 302 S1[178][194](56321)[175]15
  39. 303 [139]S1[178]14[167]Z$[178]"8"
  40. 304 [139]S1[178]07[167]Z$[178]"6"
  41. 305 [139]S1[178]11[167]Z$[178]"4"
  42. 306 [139]S1[178]13[167]Z$[178]"2"
  43. 307 [139]S1[178]15[167]330
  44. 310 Z[178]([198](Z$)[171]50)[173]2:[139]Z[179][177][181](Z)[176]Z[179]0[176]Z[177]3[137]330
  45. 320 D1[178]Z:D[178]Z[171]1.5:V1[178][181]([182](D))[172][180](D):H1[178][180](D)[171]V1
  46. 330 V[178]V[171]V1:H[178]H[170]H1:P[178]T9[170]V[172]L[170]H
  47. 350 P9[178][194](P):[151]M1,15:[151]M3,29[172]D1[170]80:[151]M2,15
  48. 360 R6[178]R7:R7[178]R7[170]1:[139]R7[177]P2[167]R7[178]0
  49. 370 P1[178]P(R7):P(R7)[178]P:[151]M1,0:[139]P1[179][177]0[167][151]P1,32
  50. 380 [151]P,D(D1):P1[178]P(R6):[139]P1[179][177]0[167][151]P1,81
  51. 390 [139]P9[179][177]32[137]540
  52. 400 [139][187](1)[177]K[137]290
  53. 410 V%[178][187](1)[172]L[173]10:P9[178]86[170]V%:V9[178]V(V%):[139]V9[177]0[137]591
  54. 470 V2[178][181]([187](1)[172]20)[170]3:H2[178][181]([187](1)[172](L[171]4))[170]2
  55. 480 [129]V3[178]V2[171]1[164]V2[170]1:P3[178]V3[172]L[170]T9:[129]H3[178]H2[171]1[164]H2[170]1:[139][194](P3[170]H3)[179][177]32[137]470
  56. 490 [130]H3,V3:V(V%)[178]V2:H(V%)[178]H2
  57. 500 [129]V3[178]V2[171]1[164]V2[170]1:P3[178]V3[172]L[170]T9:[129]H3[178]H2[171]1[164]H2[170]1
  58. 510 [151]M1,15:[151]M2,90:[151]M3,90
  59. 520 [151]P3[170]H3,P9:[151]M1,0
  60. 530 [130]H3,V3:T[178]9[172][187](1):P8[178]V2[172]L[170]H2[170]T9:[151]P8,49[170]T:T(V%)[178]T:R(V%)[178]P8:[137]290
  61. 540 V%[178]P9[171]86:[139]V%[179]0[137]600
  62. 550 P8[178]R(V%):T[178]T(V%):P2[178]P2[170]T:T$[178]TI$
  63. 560 T[178]T[171]1:S[178]S[170]1:[151]P8,T[170]49:[151]M1,15:[151]M2,15
  64. 570 [153]"";S
  65. 580 [129]J[178]100[164]30[169][171]1:[151]M3,J:[151]M2,J:[130]:[151]M1,0:[139]T[177][178]0[137]560
  66. 590 P2[178]P2[170]1:TI$[178]T$:V9[178]V(V%)
  67. 591 [129]V3[178]V9[171]1[164]V9[170]1:P3[178]V3[172]L[170]T9:H9[178]H(V%)[170]P3:[129]H3[178]H9[171]1[164]H9[170]1
  68. 594 [151]H3,32:[130]H3,V3:V(V%)[178]0:[151]R(V%),32:[137]290
  69. 600 [151]M1,15:[151]M2,15:[151]M3,200:[129]J[178]1[164]1000:[130]:[151]M1,0
  70. 620 [153]"ANOTHER GAME?WAIT   CMDCMDCMD";
  71. 630 [161]Z$:[139]Z$[178]""[137]630
  72. 640 [139]Z$[178]"Y"[167][153]"LOAD":[156]:[137]170
  73. 650 [139]Z$[179][177]"N"[137]630
  74. 660 [153]"LOAD";
  75.